0 GOTO 7
1 "
2 "
3 "
4 "     WRITTEN BY ROBERT K. SCHMID
5 "
6 "
7 POKE 788,52:POKE 792,193
8 PRINT CHR$(9);CHR$(142);CHR$(8)
9 POKE 53280,0:POKE 53281,0
10 PRINT"[147][169]   [223][146]   [146]   [146]  [169]   [223][146]  [169]   [223][146]  [169]   [223][146]      [223][146]"
11 PRINT" [146]    [146]   [146]   [146]   [146]    [146]   [146]       [146]    [146]   [146]    [146]"
12 "BANKER.C"         PRG
13 PRINT" [146] [223][146]  [146]   [146]   [146]   [146]    [146]       [146]   [146]    [146]   [146]   [146]"
14 PRINT"[223]   [146][169]  [223]  [146][169]   [146]    [146]  [223]   [146][169]   [146]    [146]   [146]   [146]"
15 PRINT"   [146]                                   [146]"
16 PRINT"  [223]                                 [223][146][223]"
17 PRINT
18 PRINTTAB(10)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
19 PRINTTAB(10)"[194] SOFTWARE COMPANY [194]"
20 PRINTTAB(10)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
21 PRINT:PRINTTAB(15)"PRESENTS:":PRINT
22 PRINTTAB(13)"SQUARE ROOT 64"
23 PRINT:PRINT:PRINT:PRINT"          PRESS A KEY TO START"
24 GET QWE$:IF QWE$="" THEN 24
100 PRINT CHR$(147)
101 PRINT"ENTER ANY NUMBER AND THE COMPUTER WILL"
102 PRINT"TELL YOU THE SQUARE ROOT."
103 PRINT"PRESS A KEY..."
104 GET A$:IF A$="" THEN 104
105 PRINT CHR$(147)
110 PRINT"PLEASE ENTER YOUR NUMBER..."
115 INPUT A
120 PRINT
125 PRINT"SQUARE ROOT OF"A"IS"SQR(A)
130 PRINT
140 GOTO 103